home *** CD-ROM | disk | FTP | other *** search
-
-
-
- DDDDGGGGEEEEDDDDIIII((((3333FFFF)))) DDDDGGGGEEEEDDDDIIII((((3333FFFF))))
-
-
-
- NNNNAAAAMMMMEEEE
- DGEDI - DGEDI computes the determinant and inverse of a matrix using
- the factors computed by DGECO or DGEFA.
-
-
- SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
- SUBROUTINE DGEDI(A,LDA,N,IPVT,DET,WORK,JOB)
-
- DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
- On Entry
-
- AAAA DOUBLE PRECISION(LDA, N)
- the output from DGECO or DGEFA.
-
- LLLLDDDDAAAA INTEGER
- the leading dimension of the array A .
-
- NNNN INTEGER
- the order of the matrix A .
-
- IIIIPPPPVVVVTTTT INTEGER(N)
- the pivot vector from DGECO or DGEFA.
-
- WWWWOOOORRRRKKKK DOUBLE PRECISION(N)
- work vector. Contents destroyed.
-
- JJJJOOOOBBBB INTEGER
- = 11 both determinant and inverse.
- = 01 inverse only.
- = 10 determinant only. On Return
-
- AAAA inverse of original matrix if requested.
- Otherwise unchanged.
-
- DDDDEEEETTTT DOUBLE PRECISION(2)
- determinant of original matrix if requested.
- Otherwise not referenced.
- Determinant = DET(1) * 10.0**DET(2)
- with 1.0 .LE. DABS(DET(1)) .LT. 10.0
- or DET(1) .EQ. 0.0 . Error Condition
-
- AAAA division by zero will occur if the input factor contains a zero on the
- diagonal and the inverse is requested. It will not occur if the
- subroutines are called correctly and if DGECO has set RCOND .GT. 0.0 or
- DGEFA has set INFO .EQ. 0 . LINPACK. This version dated 08/14/78 .
- Cleve Moler, University of New Mexico, Argonne National Lab. Subroutines
- and Functions BLAS DAXPY,DSCAL,DSWAP Fortran DABS,MOD
-
-
-
-
-
-
-
-
- PPPPaaaaggggeeee 1111
-
-
-
-